home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / bbsdemo / install_bbs < prev    next >
Encoding:
Text File  |  1996-07-16  |  5.8 KB  |  200 lines
  1. ;  EXCELSIOR! BBS Installation Script
  2. ;  © Copyright 1995-1996 AmiCom! (Amiga Communications), ALL RIGHTS RESERVED
  3.  
  4. ;  EXCELSIOR! BBS Evaluation Release (v1.21k) Feb 5, 1996
  5.  
  6.  
  7.  (welcome "Welcome to the EXCELSIOR! BBS Installation Utility")
  8.  
  9.  (transcript "Starting Install")
  10.  
  11.  
  12.  (welcome "Welcome to the EXCELSIOR! BBS Demo Installation Utility.")
  13.  
  14.  (set level @user-level)
  15.  (user 2)
  16.  
  17.  (set destP 
  18.    (askdir
  19.      (prompt "Please select a drawer or partition where you want the MAIN BBS files installed to.\n"
  20.              "NOTE: A unique drawer WILL be created automatically.")
  21.      (help "\nPlease pick a directory or partition you want EXCELSIOR! installed to.  The installer will automatically create a sub-directory 'EXCELBBS' so you need not create a new one unless you want to.")
  22.      (default "Work:")
  23.    )
  24.  )
  25.  
  26. ; (set sysopname 
  27. ;   (askstring 
  28. ;     (prompt "Please enter the name you want to be known as on your BBS\n«25 characters max»")
  29. ;     (help "\nYou can enter your real name or a handle you want to "
  30. ;           "be known as on your system.  Once you have "
  31. ;           "installed the BBS you can change this at any time.")
  32. ;     (default "Your Name")
  33. ;   )
  34. ; )
  35.  
  36. ; (set sysoppasswd
  37. ;   (askstring 
  38. ;     (prompt "Please enter the password you want to use\n«15 characters max»")
  39. ;     (help "\nThis is your secret login password.  This is "
  40. ;           "needed for remote logins.  When selecting a password, try "
  41. ;           "to choose something unique.  Perhaps something that is "
  42. ;           "familiar to only you, or a combination of letters and "
  43. ;           "numbers.  Be sure to make a note of this password "
  44. ;           "since it will be needed if you are going to login "
  45. ;           "remotely.")
  46. ;     (default "Your Password")
  47. ;   )
  48. ; )
  49.  
  50.  
  51.  (set maindir (tackon destP "EXCELBBS"))
  52.  (makedir maindir)
  53.  (set root (cat maindir "/"))
  54.  (set @default-dest root)
  55.  
  56.  (run ("copy EXCELBBS.info %s QUIET CLONE" destP))
  57.  
  58.  (makedir ("%sMBase" root))
  59.  (makedir ("%sFBase" root))
  60.  (makedir ("%sNews" root))
  61.  (makedir ("%sMail" root))
  62.  (makedir ("%sDoors" root))
  63.  (makedir ("%sTBase" root))
  64.  (makedir ("%sData" root))
  65.  (makedir ("%sRIP" root))
  66.  (makedir ("%sLanguages" root))
  67.  (makedir ("%sTranslation" root))
  68.  (makedir ("%sEditors" root))
  69.  (makedir ("%sHelp" root))
  70.  (makedir "S:Excel")
  71.  (makedir ("%sText" root))
  72.  (makedir ("%sText/English" root))
  73.  (makedir ("%sText/Logs" root))
  74.  (makedir "FONTS:RipStandard")
  75.  
  76.  (textfile
  77.    (prompt "Setting up...")
  78.    (help "No help")
  79.    (dest "T:excelsiorpath")
  80.    (append root)
  81.  )
  82.  
  83. ; (textfile
  84. ;   (prompt "Setting up...")
  85. ;   (help "No Help")
  86. ;   (dest "T:excelsiorbin")
  87. ;   (append ("%s\n%s\n" sysopname sysoppasswd))
  88. ; )
  89.  
  90.  (message ("\nI will now unpack and install the main BBS files to '%s'\n\nThis may take a few minutes..." root))
  91.  
  92.  (set undof "bin/binfiles.lha")
  93.  (set undop root)
  94.  (run ("lha x %s %s" undof undop))
  95.  
  96.  (protect ("%sBB" root) "+r +w +e +d +p")
  97.  
  98.  (set undof "C/cfiles.lha")
  99.  (set undop ("%sC/" root))
  100.  (run ("lha x %s %s" undof undop))
  101.  
  102.  (set undof "Data/datfiles.lha")
  103.  (set undop ("%sData/" root))
  104.  (run ("lha x %s %s" undof undop))
  105.  
  106.  (set undof "Text/English/textfiles.lha")
  107.  (set undop ("%sText/English/" root))
  108.  (run ("lha x %s %s" undof undop))
  109.  
  110.  (run "copy Devs/mountlist.excelsior DEVS: QUIET CLONE")
  111.  (run "copy L/null-handler L: QUIET CLONE")
  112.  (run ("copy %sEXCELBBS.info %s QUIET CLONE" destP))
  113.  
  114.  (set @default-dest root)
  115.  
  116.  (set undof "RIP/ripfiles.lha")
  117.  (set undop ("%sRIP/" root))
  118.  (run ("lha x %s %s" undof undop))
  119.  
  120.  (run "copy Fonts/RipStandard.font TO FONTS: QUIET")
  121.  (run "copy Fonts/RipStandard/8 TO FONTS:RipStandard/ QUIET")
  122.  
  123.  (copyfiles
  124.    (prompt "Available Languages")
  125.    (help "\nThis directory contains a list of all the available languages your system will support.")
  126.    (source "Languages/" )
  127.    (dest ("%sLanguages" root))
  128.    (pattern "#?")
  129.    (files)
  130.  )
  131.  
  132.  (copyfiles
  133.    (prompt "System Files")
  134.    (help "\nThis directory contains a list of all the System Files.")
  135.    (source "System/")
  136.    (dest root)
  137.    (pattern "#?")
  138.    (infos)
  139.  )
  140.  
  141.  (copyfiles
  142.    (prompt "Available Translation Tables")
  143.    (help @copyfiles-help)
  144.    (source "Translation/")
  145.    (dest ("%sTranslation/" root))
  146.    (pattern "#?")
  147.    (files)
  148.  )
  149.  
  150.  (copyfiles
  151.    (prompt "External Script Files")
  152.    (help "\nThese script files can be used with the BBS to perform "
  153.          "external tasks.  They also can be used in conjunction with "
  154.          "internal BBS functions.  Most of these files should be copied "
  155.          "to S:")
  156.    (source ("%sS/" disk2))
  157.    (dest "S:Excel/")
  158.    (pattern "#?")
  159.    (confirm)
  160.    (files)
  161.  )
  162.  
  163.  
  164.  (startup "EXCELSIOR! Professional BBS"
  165.    (prompt "Some commands must be added to your S:User-Startup file in "
  166.            "order for EXCELSIOR! to function properly.  You can later "
  167.            "edit these commands with a standard text editor.")
  168.    (help "\nThis part of the installation patches your S:User-"
  169.          "Startup file with all of your preferences you have "
  170.          "chosen during the installation procedure.  The BBS "
  171.          "may not operate correctly if these commands are not "
  172.          "executed each time your system boots.")
  173.    (command
  174.      ("\n  Assign bbs: \"%s\" " root)
  175.      ("\n  path add \"%sC\" " root)
  176.      ("\n  run >nil: <nil: \"%sC/ecom\"" root)
  177.      ("\n  mount NULL: from DEVS:mountlist.excelsior")
  178.     )
  179.  )
  180.  
  181.  
  182.  (if
  183.   (askbool
  184.     (prompt "Installation is now complete.  This demo version will "
  185.             "allow you to use EXCELSIOR! BBS fully for the local "
  186.             "session.\n\n"
  187.             "Once you have Master running, press the Sysop Login "
  188.             "button to log into the BBS.\n\n"
  189.             "The program \"XPrefs\" must be run first to configure "
  190.             "your system. Would you like to run XPrefs now?")
  191.             
  192.     (help "\nXPrefs needs to be run to configure your system "
  193.           "before using the BBS.  It is a good idea that you "
  194.           "configure your system now.")
  195.   )
  196.   (
  197.     (run ("%sXprefs" root))
  198.   )
  199.  )
  200.